home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / GRAPH07.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  384 b   |  23 lines
  1. 10  '**********************************
  2. 20  '**          GRAPH07             **
  3. 30  '**********************************
  4. 40  SCREEN 2:KEY OFF:CLS
  5. 50  CLEAR ,10000
  6. 60  DEF SEG = 0
  7. 70  POKE &H7D,&HBC
  8. 80  SCREEN 2
  9. 90  FOR X = 48128 TO 49151
  10. 100  POKE X , 255
  11. 110  NEXT
  12. 120  GOSUB 190
  13. 130  SCREEN 2
  14. 140  FOR X = 48128 TO 49151
  15. 150  POKE X,RND * 255
  16. 160  NEXT
  17. 170  GOSUB190
  18. 180  END
  19. 190  FOR X = 14 TO 255
  20. 200  PRINT CHR$(X);" ";
  21. 210  NEXT
  22. 220  RETURN
  23.